home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / C-Communications / (c)c8.d64 / bbs startup (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  1KB  |  41 lines
  1. 5 POKE53280,11:POKE53281,0
  2. 10 PRINT"[147][151]    "
  3. 21 PRINT"[201]NSERT [206]EW [196]ISK AND [208]RESS [210]ETURN."
  4. 30 PRINT"-> ";:DP$="0":DP=8:DM$="0":DM=8
  5. 35 FORW=1TO16:GETA$:NEXTW
  6. 40 GETA$:IFA$=""THEN40
  7. 50 IFA$<>CHR$(13)THEN40
  8. 60 PRINT"[211]TAND BY..."
  9. 70 OPEN1,DP,15,"N"+DP$+":BBS RUN DISK,RD":CLOSE1
  10. 90 CLOSE1:PRINT"[147][196]ISK [198]ORMATTED...[195]HECK [197]RROR [195]HANNEL"
  11. 100 OPEN1,DP,15:INPUT#1,A,B$,C,D:PRINTA;"";B$;"[146]";C;D:CLOSE1
  12. 110 IFA>0THEN70
  13. 120 PRINT"[195]REATING [213]SER [198]ILES..."
  14. 130 FORW=1TO26
  15. 140 OPEN2,DM,2,"@"+DM$+":USER LIST "+CHR$(W+192)+",L,"+CHR$(47)
  16. 150 PRINT"[195]REATING LIST "+CHR$(W+192),:CLOSE2:NEXTW
  17. 160 PRINT"[147][195]REATING '[206]UMBER OF USERS' FILE"
  18. 170 OPEN2,DM,2,"@"+DM$+":US,S,W":FORW=1TO26:PRINT#2,"0"+CHR$(13):NEXTW:CLOSE2
  19. 180 PRINT"[195]REATING [211]YSOP'S [198]ILE"
  20. 190 OPEN2,DM,2,"@"+DM$+":SYSOP,S,W":PRINT#2,"0"+CHR$(13):CLOSE2
  21. 199 PRINT"[195]REATING [208]ROGRAM [204]IST"
  22. 200 OPEN2,DP,2,"@"+DP$+":PRG LIST,L,"+CHR$(43):CLOSE2
  23. 201 OPEN2,DP,2,"@"+DP$+":PRG LIST,L":OPEN1,DP,15
  24. 202 PRINT#1,"P"CHR$(96+2)CHR$(1)CHR$(0)CHR$(0)
  25. 203 PRINT#2,"[208]-000NONAME[211][193][205][208][204][197][211][217][211][207][208]"
  26. 204 CLOSE2:CLOSE1
  27. 205 OPEN2,DM,2,"@"+DM$+":ALL COUNT,S,W":PRINT#2,"0"+CHR$(13):CLOSE2
  28. 210 OPEN2,DP,2,"@"+DP$+":PRG COUNT,S,W":PRINT#2,"0"+CHR$(13):CLOSE2
  29. 260 PRINT"[147][206]OW, CREATE THE SEQ. FILES THAT ARE     GIVEN IN '[211][197][209] [195][210][197][193][212][207][210]'"
  30. 280 PRINT"[193]ND REMEMBER TO COPY THESE FILES ONTO"
  31. 290 PRINT"THIS NEW [196]ISK....[212][197][210][205].[195]1[160] ([208][210][199])"
  32. 300 PRINT"                 [201][206][212][197][210]    ([208][210][199])"
  33. 305 PRINT"               & [195][207][205][205][193][206][196][211] ([211][197][209])"
  34. 306 PRINT"[201][206][212][197][210].[205] IS THE MITEY MO VERSION OF [201][206][212][197][210]";
  35. 307 PRINT"[201]F YOU HAVE A MITEY MO, THEN COPY THE"
  36. 308 PRINT"[201][206][212][197][210].[205] AND RENAME IT TO [201][206][212][197][210]."
  37. 309 PRINT"[206]OTE: [193]NY FILES YOU PUT ON THE DOWNLOAD"
  38. 310 PRINT"      LIST MUST BE PUT ON THE DISK IN"
  39. 311 PRINT"      [213][208][208][197][210][195][193][211][197]!"
  40. 315 END
  41.